home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
fakecrt.zip
/
FAKECRT.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-07-20
|
581b
|
33 lines
Unit FakeCrt;
Interface
Function ReadKey : Char;
Function Keypressed : Boolean;
Procedure Delay (ms : Word);
Procedure Sound (Hz : Word);
Procedure NoSound;
Function RKey : Word;
Function RKeyPressed : Boolean;
Function SReadKey : Char;
Implementation
Uses
Dos;
Const
ExtraKey : Char = #0;
{$L FAKECRT.OBJ}
Function ReadKey; external;
Function KeyPressed; external;
Procedure Delay; external;
Procedure Sound; external;
Procedure NoSound; external;
Function RKey; external;
Function RKeyPressed; external;
Function SReadKey; external;
End.